10 REM**************************************************************
20 REM********************************************************
30 REM*********                                                                                      
40 REM*********                          FILTERME9SPLAT2                              
50 REM*********                                   UEBUNG                                         
60 REM*********                                       e)                                             
70 REM*********                                                                                 
80 REM*********                                       GST 11/88  
90 REM**************************************************************
100 REM**************************************************************
110 REM
120 REM
130 REM
200 REM *** PROGRAMMBEGINN ***
210 GOSUB 400: REM INITIALISIERUNGSAUFRUF
220 GOSUB 1000: REM EINGABE DES FALSCHEN DATUMS
230 GOSUB 1200: REM URE EINSTELLEN UND MESSWERT HOLEN
240 REM
250 REM
260 END
400 REM *** INITIALISIERUNG VON PCA UND SCHNITTSTELLE ***
410 PRINT "ESC2J": CLEAR
420 IEC IFC ,DCL ,TERM 10,TIME 1000
430 ON SRQ1 GOSUB 1300
440 REM
450 RETURN
1000 REM ********* EINZELSCHRITTE ********
1010 REM
1020 PRINT "GEBEN SIE EINE FEHLERHAFTE ZEICHENKETTE EIN :";Fehler$
1030 REM
1040 REM
1050 REM
1060 REM
1070 REM
1080 REM
1090 REM
1099 RETURN
1180 REM
1190 REM        :REM ** URE EINSTELLEN **
1200 REM
1210 REM
1220 Gf$=Fehler$
1230 REM
1240 REM
1250 REM        :REM ** MESSWERT TRIGGERN **
1260 REM         BZW EINLESEN
1270 REM
1280 IEC OUT 7,Gf$
1290 RETURN 
1300 REM ****
1310 REM         :REM ** SERVICE ROUTINE **
1320 REM
1330 IEC SPL 7,Stat%
1340 IF Stat% AND 64<>0 THEN
1350    IF Stat% AND 96 THEN
1355       PRINT "FEHLERHAFTE SYNTAX"
1356    ELSE
1360       IF Stat% AND 98 THEN
1370          PRINT "FEHLERHAFTES EINGABEDATUM"
1380       ELSE
1390          PRINT "ANDERER FEHLER"
1399          RETURN
1400       ENDIF 
1405    ENDIF 
1410 ELSE
1420    PRINT "FEHLERHAFTER SRQ"
1430 ENDIF
1440 ON SRQ1 GOSUB 1300: RETURN
1450 REM ********